home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
programs
/
swift45i.zip
/
BBSLIST.Q-A
< prev
next >
Wrap
Text File
|
1992-05-25
|
2KB
|
87 lines
Variable 40 Name
Variable 15 Phone
Variable 15 Baud
Variable 15 Hours
Variable 25 Node
Variable 65 ANotes
Variable 65 BNotes
PostInfo
Display " Do you want to view the current BBS list? "
GetChoice YN View
If View = "Y"
Display " Do you want details on each BBS listed? "
GetChoice YN Details
ClearScreen
GetFile BBSLIST.DAT
Display "BBS Name Phone baud hrs Net/node "
Display "|========================= ============== ========= ========= =========="
Repeat 32000
Read Name
Read Phone
Read Baud
Read Hours
Read Node
Read ANotes
Read BNotes
ChangeColor 12 0
Display "|"
TabDisplay 26 Name
TabDisplay 15 Phone
TabDisplay 10 baud
TabDisplay 10 hours
TabDisplay 10 Node
If Details = "Y"
ChangeColor 6 0
Display "| " ANotes
Display "| " BNotes
Endif
EndRepeat
EndIf
If Security = "32000"
ChangeColor 13 0
Display "| Do you want to add a BBS to this list? "
GetChoice YN Add
If Add = "Y"
ClearScreen
ChangeColor 14 0
Display " Enter the Name of the Board: "
Ask 40 Name
Display " Enter the complete phone number: "
Ask 30 Phone
Display " Enter the baud rates accepted: "
Ask 40 Baud
Display " What hours is this board operated: "
Ask 40 Hours
Display " Enter your current Net:Node Number: "
Ask 30 Node
SetFlag D8 ON
OutputAnswer "BBS Name: " Name
OutputAnswer "PHONE: " Phone
OutputAnswer "BAUD: " Baud
OutputAnswer "HOURS: " Hours
OutputAnswer "NET/NODE: " Node
ChangeColor 14 0
Display " Describe your bulletin board in the following 2 lines|"
Display " or press enter twice|"
Display " "
Ask 65 ANotes
OutputAnswer "BBS Notes " ANotes
Display " "
Ask 65 BNotes
OutputAnswer "BBS Notes " BNotes
AppendFile BBSLIST.DAT
Write Name
Write Phone
Write Baud
Write Hours
Write Node
Write ANotes
Write BNotes
Endif
Endif
ChangeColor 6 0
Display "|| Press your enter key to return to SwiftBBS|"
Ask 1 AnyKey
Quit